home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 January / EnigmA AMIGA RUN 24 (1997)(G.R. Edizioni)(IT)[!][issue 1998-01 & 02].iso / EARCD / UTILI2 / AmiSearchII / Installation-Français < prev    next >
Text File  |  1997-10-08  |  3KB  |  111 lines
  1. ;$VER:AmiSearch installation script
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Warning-Txt
  9. (cat "Attention !\n\n\n"
  10. "AmiSearch II a besoin de MUI 3.8+ pour fonctionner.\n\n"
  11. "Sans MUI AmiSearch II ne marchera pas...\n\n"
  12. ))(set #Path-Txt
  13. (cat "Choisissez le répertoire cible. Un tiroir AmiSearchII "
  14. "y sera crée."
  15. ))(set #Path-Help
  16. (cat "\nCette partie vous permet de choisir le répertoire où sera placé AmiSearchII. \n\n"
  17. "Un tiroir AmiSearchII y est crée, afin de permettre une meilleure gestion de vos index.\n\n"
  18. "Par défaut c'est Work:\n\n\n"
  19. ))
  20.  
  21. ; Main
  22.  
  23. (message #Warning-Txt)
  24. (set target
  25. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  26. ))
  27. (set @default-dest (tackon target "AmiSearchII"))
  28. (makedir (tackon target "AmiSearchII")(infos))
  29. (makedir (tackon target "AmiSearchII/Docs") (infos))
  30. (makedir (tackon target "AmiSearchII/Gfx"))
  31. (makedir (tackon target "AmiSearchII/ArchiveScripts"))
  32. (makedir (tackon target "AmiSearchII/BaseScripts"))
  33. (makedir (tackon target "AmiSearchII/Databases"))
  34. (makedir (tackon target "AmiSearchII/Prologs"))
  35.  
  36. (copyfiles
  37. (prompt "Copie du logiciel")
  38. (help @copy-files-help)
  39. (source "AmiSearch2")
  40. (dest (tackon target "AmiSearchII"))
  41. (infos))
  42.  
  43. (copyfiles
  44. (prompt "Copie du script de gestion des archives")
  45. (help @copy-files-help)
  46. (source "ArchiveScripts/AS2H")
  47. (dest (tackon target "AmiSearchII/ArchiveScripts"))
  48. (infos))
  49.  
  50. (copyfiles
  51. (prompt "Copie des images")
  52. (help @copy-files-help)
  53. (source "Gfx")
  54. (dest (tackon target "AmiSearchII/Gfx"))
  55. (pattern "#?")
  56. (infos))
  57.  
  58. (complete 30)
  59.  
  60. (copyfiles
  61. (prompt "Copie des scripts de création automatique")
  62. (help @copy-files-help)
  63. (source "BaseScripts")
  64. (dest (tackon target "AmiSearchII/BaseScripts"))
  65. (pattern "#?")
  66. (infos))
  67.  
  68. (copyfiles
  69. (prompt "Copie des prologues")
  70. (help @copy-files-help)
  71. (source "Prologs")
  72. (dest (tackon target "AmiSearchII/Prologs"))
  73. (pattern "#?")
  74. (infos))
  75.  
  76. (complete 40)
  77. (copyfiles (prompt "Copie localisation") (source "Locale/AmiSearch2.cd") (dest "LOCALE:"))
  78. (copyfiles (prompt "Copie localisation") (source "Locale/Catalogs/Français/AmiSearch2.catalog") (dest "LOCALE:Catalogs/Français"))
  79.  
  80.  
  81. (complete 50)
  82. (copyfiles
  83. (prompt "Copie du manuel")
  84. (help @copy-files-help)
  85. (source "Docs/Manuel_Français.guide")
  86. (dest (tackon target "AmiSearchII/Docs"))
  87. (infos))
  88.  
  89. (complete 75)
  90.  
  91. (copyfiles
  92. (prompt "Copie de ReadMe.mui")
  93. (help @copy-files-help)
  94. (source "Docs/ReadMe.mui")
  95. (dest (tackon target "AmiSearchII/Docs"))
  96. (infos))
  97.  
  98. (set myassign
  99. (cat "assign AS2: " (tackon (expandpath target) "AmiSearchII")
  100. )
  101. )
  102.  
  103. (startup "AmiSearch II"
  104. (command myassign)
  105. (prompt "Ajout de l'assignement dans s:user-startup")
  106. (help @startup-help)
  107. )
  108. (run myassign)
  109.  
  110. (complete 100)
  111.